home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / QBTXINIT.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  629b  |  19 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3. '' '$INCLUDE: 'qbt2indx.inc'
  4. '' '-------------------------Standard Include Merge Section-------------------
  5.  
  6. DEFSNG A-Z
  7.     SUB InitNewFile (fl AS INTEGER, Rlen AS INTEGER)
  8.  
  9.         FillLength = Rlen - 4                                      '  Rest of the record
  10.  
  11.         PutString$ = MKI$(2) + MKI$(2) + STRING$(FillLength, 0)
  12.         PUT #fl, 1, PutString$                                     '  Write header info
  13.  
  14.         PutString$ = MKI$(-1) + STRING$(FillLength + 2, 0)
  15.         PUT #fl, 2, PutString$                                     '  Write first available record info
  16.  
  17.     END SUB
  18.  
  19.